home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual dBase v5.5 / SAMPLES1.PAK / PICTURES.WFM < prev    next >
Text File  |  1995-07-18  |  4KB  |  141 lines
  1. *****************************************************************************
  2. *  PROGRAM:      Pictures.wfm
  3. *
  4. *  WRITTEN BY:   Borland Samples Group
  5. *
  6. *  DATE:         5/93
  7. *
  8. *  UPDATED:      5/95
  9. *
  10. *  VERSION:      Visual dBASE
  11. *
  12. *  DESCRIPTION:  This form file creates a form that displays bitmaps in an
  13. *                OLE object -- which you can modify in Paint Brush by double
  14. *                clicking in that object.  It displays the bitmap names in
  15. *                a listbox, and also allows you to listen to the sound
  16. *                corresponding to each bitmap by pressing the Sound button
  17. *
  18. *  PARAMETERS:   None
  19. *
  20. *  CALLS:        Pictures.qbe  (View of table)
  21. *                Buttons.cc    (Custom Controls file)
  22. *
  23. *  USAGE:        DO Pictures.wfm
  24. *
  25. *******************************************************************************
  26. create session
  27. set talk off
  28. set ldCheck off
  29.  
  30. ** END HEADER -- do not remove this line*
  31. * Generated on 05/23/95
  32. *
  33. parameter bModal
  34. local f
  35. f = new PICTURESFORM()
  36. if (bModal)
  37.    f.mdi = .F. && ensure not MDI
  38.    f.ReadModal()
  39. else
  40.    f.Open()
  41. endif
  42. CLASS PICTURESFORM OF FORM
  43.    Set Procedure to &_dbwinhome.samples\Buttons.cc Additive
  44.    this.Left = 0
  45.    this.Height = 19.1758
  46.    this.Text = "Pictures Form"
  47.    this.MousePointer = 1
  48.    this.View = "PICTURES.QBE"
  49.    this.ColorNormal = "BG/B"
  50.    this.Minimize = .F.
  51.    this.Width = 91.833
  52.    this.Maximize = .F.
  53.    this.TopMost = .F.
  54.    this.PageNo = 1
  55.    this.Top = 0
  56.  
  57.    DEFINE PUSHBUTTON SOUND OF THIS;
  58.        PROPERTY;
  59.          Group .T.,;
  60.          Left 1.3193,;
  61.          Height 1.6611,;
  62.          Text "Play &Sound",;
  63.          ColorNormal "N/W",;
  64.          Width 20.5137,;
  65.          OnClick {;play sound binary pictures->sound},;
  66.          PageNo 1,;
  67.          Default .T.,;
  68.          Top 11.2793
  69.  
  70.    DEFINE LISTBOX THINGS OF THIS;
  71.        PROPERTY;
  72.          Left 1.1592,;
  73.          Height 5.626,;
  74.          ColorNormal "N/W+",;
  75.          Width 20.8408,;
  76.          PageNo 1,;
  77.          ID 800,;
  78.          DataSource "FIELD NAME",;
  79.          ColorHighLight "RG+/B",;
  80.          Top 4.5498
  81.  
  82.    DEFINE OLE PICTURE OF THIS;
  83.        PROPERTY;
  84.          Left 23.0996,;
  85.          Height 15.6406,;
  86.          DataLink "PICTURES->BITMAPOLE",;
  87.          Border .F.,;
  88.          Width 67.5664,;
  89.          PageNo 1,;
  90.          ID 88,;
  91.          Top 3.2998
  92.  
  93.    DEFINE TEXT TITLE OF THIS;
  94.        PROPERTY;
  95.          Left 0,;
  96.          Height 3,;
  97.          FontBold .F.,;
  98.          FontSize 28,;
  99.          Text "Sights and Sounds",;
  100.          FontName "Times New Roman",;
  101.          Border .F.,;
  102.          ColorNormal "GR+/B",;
  103.          Alignment 1,;
  104.          Width 100.333,;
  105.          PageNo 1,;
  106.          Top 0
  107.  
  108.    DEFINE TEXT SELECTTEXT OF THIS;
  109.        PROPERTY;
  110.          Left 1.3193,;
  111.          Height 1.1113,;
  112.          FontSize 11,;
  113.          Text "Select &Image:",;
  114.          Border .F.,;
  115.          ColorNormal "RG+/B",;
  116.          Width 18.5137,;
  117.          PageNo 1,;
  118.          Top 3.2998
  119.  
  120.    DEFINE SAMPLEINFOBUTTON PICTURESINFOBUTTON OF THIS;
  121.        PROPERTY;
  122.          OnOpen CLASS::PICTURESINFOBUTTON_ONOPEN,;
  123.          Group .T.,;
  124.          Left 88,;
  125.          Height 1.1943,;
  126.          Width 3.5,;
  127.          Top 0.0996
  128.  
  129.    ****************************************************************************
  130.    Procedure PICTURESINFOBUTTON_OnOpen
  131.    ****************************************************************************
  132.  
  133.    form.picturesInfoButton.sampleName = "Pictures.wfm"
  134.    form.things.SetFocus()
  135.  
  136. ENDCLASS
  137.  
  138.  
  139.  
  140.  
  141.